﻿Imports System.ComponentModel
Imports DevComponents.DotNetBar
Public Class UC_Home
    Implements IDaTa

    Sub New()
        Me.Dock = DockStyle.Fill
        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Dim listGhiBan As BindingList(Of DANHSACHGHIBAN)
    Dim listLich As BindingList(Of TRANDAU)

    Protected Overrides Sub OnLoad(e As EventArgs)
        MyBase.OnLoad(e)

        Dim context As New LinDataContext

        listGhiBan = context.DANHSACHGHIBANs.GetNewBindingList()
        listLich = context.TRANDAUs.GetNewBindingList()

        gridGhiBan.DataSource = listGhiBan
        gridLich.DataSource = listLich
    End Sub

    Public Sub CapNhat() Implements IDaTa.CapNhat
        MessageBoxEx.Show("Không thực hiện 'Cập Nhật' tại home.", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Return
    End Sub

    Public Sub Them() Implements IDaTa.Them
        MessageBoxEx.Show("Không thực hiện 'Thêm' tại home.", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Return
    End Sub

    Public Sub Xoa() Implements IDaTa.Xoa
        MessageBoxEx.Show("Không thực hiện 'Xóa' tại home.", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Return
    End Sub
End Class
